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: FACILITY: DCL Differences command 

! ABSTRACT: The DCL DIFFERENCES command compares the contents of 


; two files. 

ENVIRONMENT: VAX native, user mode 
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! Define VMS block structures (BLOCK(,BYTE)) 


STRUCTURE 
BBLOCK (0, P at E; N) = 


(BBLOCK + 0) <P, S, E>; 
MACRO 


Macro to generate a pointer to a counted string 
; cstring(string) = uplit byte(Zcharcount(string) ,string)2; 


owen. eae eae 
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MACRO 
: Macro to declare a string descriptor as a bblock 
desc_decl = BBLOCK(dsc$c_s_bin]2; 
MACRO 
: Macro to generate a counted string 
countedstring(string) = vector (%charcount (string)+1, byte] initial (byte(%charcount(string) ,%ascii string ))%; 
LITERAL 


true = 1 
false = 6; 
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